REM ** Mäxje-Menue ** (Mäxje V2.0)
REM ** v. HP Biehl **
REM *** Juni 1993 ***
COLOR 1,0:CLS
PALETTE 0,0,0,0
PALETTE 1,0.9,0.9,0
PALETTE 2,0,0,1
LOCATE 2,31:PRINT "MÄXJE von HP BIEHL"
COLOR 3,0:LOCATE 3,31
PRINT "~~~~~~~~~~~~~~~~~~"
COLOR 1,2
LOCATE 5,33:PRINT "             "
LOCATE 6,33:PRINT " Einzelspiel "
LOCATE 7,33:PRINT "             "
LOCATE 10,33:PRINT "             "
LOCATE 11,33:PRINT "   Turnier   "
LOCATE 12,33:PRINT "             "
LOCATE 15,33:PRINT "             "
LOCATE 16,33:PRINT "  raus hier  "
LOCATE 17,33:PRINT "             "
COLOR 3,0:LOCATE 20,24
PRINT "Bitte entsprechendes anklicken!"
LINE(257,32)-(359,55),3,b
LINE(257,72)-(359,95),3,b
LINE(257,112)-(359,135),3,b
auswahl:
 WHILE MOUSE(0)=0:WEND
 IF MOUSE(1)<257 OR MOUSE(1)>359 THEN auswahl
 IF MOUSE(2)>31 AND MOUSE(2)<56 THEN auswahl1
 IF MOUSE(2)>71 AND MOUSE(2)<96 THEN auswahl2
 IF MOUSE(2)>111 AND MOUSE(2)<136 THEN auswahl3
 GOTO auswahl
auswahl1:
 COLOR 2,1
 LOCATE 5,33:PRINT "             "
 LOCATE 6,33:PRINT " Einzelspiel "
 LOCATE 7,33:PRINT "             "
 CHAIN"Mäxje1"
auswahl2:
 COLOR 2,1
 LOCATE 10,33:PRINT "             "
 LOCATE 11,33:PRINT "   Turnier   "
 LOCATE 12,33:PRINT "             "
 CHAIN"Mäxje2"
auswahl3: 
 COLOR 2,1
 LOCATE 15,33:PRINT "             "
 LOCATE 16,33:PRINT "  raus hier  "
 LOCATE 17,33:PRINT "             "
 SYSTEM